        data grida(1,1:38) /
     .  0.1000000000000000D+01,-.1000000000000000D+01,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.5773502691896257D+00,-.5773502691896257D+00,
     .  0.5773502691896257D+00,-.5773502691896257D+00,
     .  0.5773502691896257D+00,-.5773502691896257D+00,
     .  0.5773502691896257D+00,-.5773502691896257D+00,
     .  0.4597008433809831D+00,-.4597008433809831D+00,
     .  0.4597008433809831D+00,-.4597008433809831D+00,
     .  0.8880738339771153D+00,-.8880738339771153D+00,
     .  0.8880738339771153D+00,-.8880738339771153D+00,
     .  0.4597008433809831D+00,-.4597008433809831D+00,
     .  0.4597008433809831D+00,-.4597008433809831D+00,
     .  0.8880738339771153D+00,-.8880738339771153D+00,
     .  0.8880738339771153D+00,-.8880738339771153D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00 
     .  /
        data grida(2,1:38) /
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.1000000000000000D+01,-.1000000000000000D+01,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.5773502691896257D+00,0.5773502691896257D+00,
     .  -.5773502691896257D+00,-.5773502691896257D+00,
     .  0.5773502691896257D+00,0.5773502691896257D+00,
     .  -.5773502691896257D+00,-.5773502691896257D+00,
     .  0.8880738339771153D+00,0.8880738339771153D+00,
     .  -.8880738339771153D+00,-.8880738339771153D+00,
     .  0.4597008433809831D+00,0.4597008433809831D+00,
     .  -.4597008433809831D+00,-.4597008433809831D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.4597008433809831D+00,-.4597008433809831D+00,
     .  0.4597008433809831D+00,-.4597008433809831D+00,
     .  0.8880738339771153D+00,-.8880738339771153D+00,
     .  0.8880738339771153D+00,-.8880738339771153D+00 
     .  /
        data grida(3,1:38) /
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.1000000000000000D+01,-.1000000000000000D+01,
     .  0.5773502691896257D+00,0.5773502691896257D+00,
     .  0.5773502691896257D+00,0.5773502691896257D+00,
     .  -.5773502691896257D+00,-.5773502691896257D+00,
     .  -.5773502691896257D+00,-.5773502691896257D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.0000000000000000D+00,0.0000000000000000D+00,
     .  0.8880738339771153D+00,0.8880738339771153D+00,
     .  -.8880738339771153D+00,-.8880738339771153D+00,
     .  0.4597008433809831D+00,0.4597008433809831D+00,
     .  -.4597008433809831D+00,-.4597008433809831D+00,
     .  0.8880738339771153D+00,0.8880738339771153D+00,
     .  -.8880738339771153D+00,-.8880738339771153D+00,
     .  0.4597008433809831D+00,0.4597008433809831D+00,
     .  -.4597008433809831D+00,-.4597008433809831D+00 
     .  /
        data grida(4,1:38) /
     .  0.9523809523809525D-02,0.9523809523809525D-02,
     .  0.9523809523809525D-02,0.9523809523809525D-02,
     .  0.9523809523809525D-02,0.9523809523809525D-02,
     .  0.3214285714285714D-01,0.3214285714285714D-01,
     .  0.3214285714285714D-01,0.3214285714285714D-01,
     .  0.3214285714285714D-01,0.3214285714285714D-01,
     .  0.3214285714285714D-01,0.3214285714285714D-01,
     .  0.2857142857142857D-01,0.2857142857142857D-01,
     .  0.2857142857142857D-01,0.2857142857142857D-01,
     .  0.2857142857142857D-01,0.2857142857142857D-01,
     .  0.2857142857142857D-01,0.2857142857142857D-01,
     .  0.2857142857142857D-01,0.2857142857142857D-01,
     .  0.2857142857142857D-01,0.2857142857142857D-01,
     .  0.2857142857142857D-01,0.2857142857142857D-01,
     .  0.2857142857142857D-01,0.2857142857142857D-01,
     .  0.2857142857142857D-01,0.2857142857142857D-01,
     .  0.2857142857142857D-01,0.2857142857142857D-01,
     .  0.2857142857142857D-01,0.2857142857142857D-01,
     .  0.2857142857142857D-01,0.2857142857142857D-01 
     .  /
